home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / yerli / 07 / _SETUP.1 / Emlak 2000.exe / 0 / RCDATA / TFORM35 / TFORM35.txt < prev   
Encoding:
Text File  |  1999-02-04  |  8.6 KB  |  423 lines
  1. object Form35: TForm35
  2.   Left = 267
  3.   Top = 193
  4.   AutoSize = True
  5.   BorderStyle = bsNone
  6.   Caption = 'Kay∩┐╜t Giri∩┐╜i'
  7.   ClientHeight = 380
  8.   ClientWidth = 640
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Image1: TImage
  20.     Left = 0
  21.     Top = 0
  22.     Width = 640
  23.     Height = 380
  24.     AutoSize = True
  25.     Picture.Data = {<image000.jpg>}
  26.     OnMouseDown = Image1MouseDown
  27.   end
  28.   object Label1: TLabel
  29.     Left = 48
  30.     Top = 56
  31.     Width = 17
  32.     Height = 16
  33.     Caption = 'Ad'
  34.     Color = clBlue
  35.     Font.Charset = DEFAULT_CHARSET
  36.     Font.Color = clBlue
  37.     Font.Height = -13
  38.     Font.Name = 'Arial'
  39.     Font.Style = [fsBold]
  40.     ParentColor = False
  41.     ParentFont = False
  42.     Transparent = True
  43.   end
  44.   object Label2: TLabel
  45.     Left = 48
  46.     Top = 88
  47.     Width = 40
  48.     Height = 16
  49.     Caption = 'Soyad'
  50.     Color = clBlue
  51.     Font.Charset = DEFAULT_CHARSET
  52.     Font.Color = clBlue
  53.     Font.Height = -13
  54.     Font.Name = 'Arial'
  55.     Font.Style = [fsBold]
  56.     ParentColor = False
  57.     ParentFont = False
  58.     Transparent = True
  59.   end
  60.   object Label3: TLabel
  61.     Left = 48
  62.     Top = 120
  63.     Width = 48
  64.     Height = 16
  65.     Caption = 'Telefon'
  66.     Color = clBlue
  67.     Font.Charset = DEFAULT_CHARSET
  68.     Font.Color = clBlue
  69.     Font.Height = -13
  70.     Font.Name = 'Arial'
  71.     Font.Style = [fsBold]
  72.     ParentColor = False
  73.     ParentFont = False
  74.     Transparent = True
  75.   end
  76.   object Label4: TLabel
  77.     Left = 48
  78.     Top = 152
  79.     Width = 85
  80.     Height = 16
  81.     Caption = 'Cep Telefonu'
  82.     Color = clBlue
  83.     Font.Charset = DEFAULT_CHARSET
  84.     Font.Color = clBlue
  85.     Font.Height = -13
  86.     Font.Name = 'Arial'
  87.     Font.Style = [fsBold]
  88.     ParentColor = False
  89.     ParentFont = False
  90.     Transparent = True
  91.   end
  92.   object Label5: TLabel
  93.     Left = 48
  94.     Top = 184
  95.     Width = 86
  96.     Height = 16
  97.     Caption = '∩┐╜kinci Telefon'
  98.     Color = clBlue
  99.     Font.Charset = DEFAULT_CHARSET
  100.     Font.Color = clBlue
  101.     Font.Height = -13
  102.     Font.Name = 'Arial'
  103.     Font.Style = [fsBold]
  104.     ParentColor = False
  105.     ParentFont = False
  106.     Transparent = True
  107.   end
  108.   object Label6: TLabel
  109.     Left = 48
  110.     Top = 216
  111.     Width = 29
  112.     Height = 16
  113.     Caption = 'Faks'
  114.     Color = clBlue
  115.     Font.Charset = DEFAULT_CHARSET
  116.     Font.Color = clBlue
  117.     Font.Height = -13
  118.     Font.Name = 'Arial'
  119.     Font.Style = [fsBold]
  120.     ParentColor = False
  121.     ParentFont = False
  122.     Transparent = True
  123.   end
  124.   object Label7: TLabel
  125.     Left = 48
  126.     Top = 264
  127.     Width = 8
  128.     Height = 16
  129.     Caption = '∩┐╜l'
  130.     Color = clBlue
  131.     Font.Charset = DEFAULT_CHARSET
  132.     Font.Color = clBlue
  133.     Font.Height = -13
  134.     Font.Name = 'Arial'
  135.     Font.Style = [fsBold]
  136.     ParentColor = False
  137.     ParentFont = False
  138.     Transparent = True
  139.   end
  140.   object Label8: TLabel
  141.     Left = 384
  142.     Top = 56
  143.     Width = 39
  144.     Height = 16
  145.     Caption = 'Resim'
  146.     Color = clBlue
  147.     Font.Charset = DEFAULT_CHARSET
  148.     Font.Color = clBlue
  149.     Font.Height = -13
  150.     Font.Name = 'Arial'
  151.     Font.Style = [fsBold]
  152.     ParentColor = False
  153.     ParentFont = False
  154.     Transparent = True
  155.   end
  156.   object Label9: TLabel
  157.     Left = 376
  158.     Top = 184
  159.     Width = 36
  160.     Height = 16
  161.     Caption = 'Adres'
  162.     Color = clBlue
  163.     Font.Charset = DEFAULT_CHARSET
  164.     Font.Color = clBlue
  165.     Font.Height = -13
  166.     Font.Name = 'Arial'
  167.     Font.Style = [fsBold]
  168.     ParentColor = False
  169.     ParentFont = False
  170.     Transparent = True
  171.   end
  172.   object Label10: TLabel
  173.     Left = 376
  174.     Top = 264
  175.     Width = 59
  176.     Height = 16
  177.     Caption = 'A∩┐╜∩┐╜klama'
  178.     Color = clBlue
  179.     Font.Charset = DEFAULT_CHARSET
  180.     Font.Color = clBlue
  181.     Font.Height = -13
  182.     Font.Name = 'Arial'
  183.     Font.Style = [fsBold]
  184.     ParentColor = False
  185.     ParentFont = False
  186.     Transparent = True
  187.   end
  188.   object Image2: TImage
  189.     Left = 592
  190.     Top = 24
  191.     Width = 13
  192.     Height = 13
  193.     AutoSize = True
  194.     Picture.Data = {<image001.bmp>}
  195.     OnClick = Image2Click
  196.   end
  197.   object Image3: TImage
  198.     Left = 576
  199.     Top = 24
  200.     Width = 13
  201.     Height = 13
  202.     AutoSize = True
  203.     Picture.Data = {<image002.bmp>}
  204.     OnClick = Image3Click
  205.   end
  206.   object DBEdit1: TDBEdit
  207.     Left = 144
  208.     Top = 56
  209.     Width = 121
  210.     Height = 21
  211.     DataField = 'Ad'
  212.     DataSource = DataSource1
  213.     TabOrder = 0
  214.     OnKeyPress = DBEdit1KeyPress
  215.   end
  216.   object DBEdit2: TDBEdit
  217.     Left = 144
  218.     Top = 88
  219.     Width = 121
  220.     Height = 21
  221.     DataField = 'Soyad'
  222.     DataSource = DataSource1
  223.     TabOrder = 1
  224.     OnKeyPress = DBEdit1KeyPress
  225.   end
  226.   object DBEdit3: TDBEdit
  227.     Left = 144
  228.     Top = 120
  229.     Width = 121
  230.     Height = 21
  231.     DataField = 'Telefon'
  232.     DataSource = DataSource1
  233.     MaxLength = 15
  234.     TabOrder = 2
  235.     OnKeyPress = DBEdit1KeyPress
  236.   end
  237.   object DBEdit4: TDBEdit
  238.     Left = 144
  239.     Top = 152
  240.     Width = 121
  241.     Height = 21
  242.     DataField = 'Ceptel'
  243.     DataSource = DataSource1
  244.     MaxLength = 15
  245.     TabOrder = 3
  246.     OnKeyPress = DBEdit1KeyPress
  247.   end
  248.   object DBEdit5: TDBEdit
  249.     Left = 144
  250.     Top = 184
  251.     Width = 121
  252.     Height = 21
  253.     DataField = 'Ikincitel'
  254.     DataSource = DataSource1
  255.     MaxLength = 15
  256.     TabOrder = 4
  257.     OnKeyPress = DBEdit1KeyPress
  258.   end
  259.   object DBMemo1: TDBMemo
  260.     Left = 440
  261.     Top = 264
  262.     Width = 161
  263.     Height = 57
  264.     DataField = 'Aciklama'
  265.     DataSource = DataSource1
  266.     TabOrder = 9
  267.     OnKeyPress = DBEdit1KeyPress
  268.   end
  269.   object DBMemo2: TDBMemo
  270.     Left = 440
  271.     Top = 184
  272.     Width = 161
  273.     Height = 57
  274.     DataField = 'Adres'
  275.     DataSource = DataSource1
  276.     TabOrder = 8
  277.     OnKeyPress = DBEdit1KeyPress
  278.   end
  279.   object DBImage1: TDBImage
  280.     Left = 440
  281.     Top = 56
  282.     Width = 97
  283.     Height = 105
  284.     DataField = 'Resim'
  285.     DataSource = DataSource1
  286.     PopupMenu = PopupMenu1
  287.     Stretch = True
  288.     TabOrder = 7
  289.     OnKeyPress = DBEdit1KeyPress
  290.   end
  291.   object DBEdit6: TDBEdit
  292.     Left = 144
  293.     Top = 216
  294.     Width = 121
  295.     Height = 21
  296.     DataField = 'Faks'
  297.     DataSource = DataSource1
  298.     MaxLength = 15
  299.     TabOrder = 5
  300.     OnKeyPress = DBEdit1KeyPress
  301.   end
  302.   object DBLookupComboBox1: TDBLookupComboBox
  303.     Left = 144
  304.     Top = 264
  305.     Width = 121
  306.     Height = 21
  307.     DataField = 'Il'
  308.     DataSource = DataSource1
  309.     KeyField = 'Il'
  310.     ListField = 'Il'
  311.     ListSource = DataSource2
  312.     TabOrder = 6
  313.     OnKeyPress = DBEdit1KeyPress
  314.   end
  315.   object DBNavigator1: TDBNavigator
  316.     Left = 50
  317.     Top = 304
  318.     Width = 210
  319.     Height = 18
  320.     DataSource = DataSource1
  321.     Hints.Strings = (
  322.       '∩┐╜lk Kay∩┐╜t'
  323.       '∩┐╜nceki Kay∩┐╜t'
  324.       'Sonraki Kay∩┐╜t'
  325.       'Son Kay∩┐╜t'
  326.       'Kay∩┐╜t Ekle'
  327.       'Kay∩┐╜t Sil'
  328.       'De∩┐╜i∩┐╜iklik'
  329.       'Onayla'
  330.       'De∩┐╜i∩┐╜iklik ∩┐╜ptal'
  331.       'Yenile')
  332.     ParentShowHint = False
  333.     ShowHint = True
  334.     TabOrder = 10
  335.   end
  336.   object DataSource1: TDataSource
  337.     DataSet = Table1
  338.     Left = 168
  339.   end
  340.   object Table1: TTable
  341.     Active = True
  342.     AfterPost = Table1AfterPost
  343.     TableName = 'tel.db'
  344.     Left = 200
  345.     object Table1No: TAutoIncField
  346.       FieldName = 'No'
  347.       ReadOnly = True
  348.     end
  349.     object Table1Ad: TStringField
  350.       FieldName = 'Ad'
  351.     end
  352.     object Table1Soyad: TStringField
  353.       FieldName = 'Soyad'
  354.     end
  355.     object Table1Telefon: TStringField
  356.       FieldName = 'Telefon'
  357.       EditMask = '!\(999\) 999-99-99;1;_'
  358.     end
  359.     object Table1Aciklama: TMemoField
  360.       FieldName = 'Aciklama'
  361.       BlobType = ftMemo
  362.       Size = 50
  363.     end
  364.     object Table1Ikincitel: TStringField
  365.       FieldName = 'Ikincitel'
  366.       EditMask = '!\(999\) 999-99-99;1;_'
  367.     end
  368.     object Table1Ceptel: TStringField
  369.       FieldName = 'Ceptel'
  370.       EditMask = '!\(999\) 999-99-99;1;_'
  371.     end
  372.     object Table1Faks: TStringField
  373.       FieldName = 'Faks'
  374.       EditMask = '!\(999\) 999-99-99;1;_'
  375.     end
  376.     object Table1Il: TStringField
  377.       FieldName = 'Il'
  378.     end
  379.     object Table1Resim: TGraphicField
  380.       FieldName = 'Resim'
  381.       BlobType = ftGraphic
  382.     end
  383.     object Table1Adres: TMemoField
  384.       FieldName = 'Adres'
  385.       BlobType = ftMemo
  386.       Size = 50
  387.     end
  388.     object Table1M: TMemoField
  389.       FieldName = 'M'
  390.       BlobType = ftMemo
  391.       Size = 1
  392.     end
  393.   end
  394.   object PopupMenu1: TPopupMenu
  395.     Left = 232
  396.     object Dosyadan1: TMenuItem
  397.       Caption = 'Dosyadan'
  398.       OnClick = Dosyadan1Click
  399.     end
  400.     object Clipborddan1: TMenuItem
  401.       Caption = 'Clipborddan'
  402.       OnClick = Clipborddan1Click
  403.     end
  404.   end
  405.   object DataSource2: TDataSource
  406.     DataSet = Table2
  407.     Left = 272
  408.   end
  409.   object Table2: TTable
  410.     Active = True
  411.     TableName = 'il.db'
  412.     Left = 312
  413.     object Table2Il: TStringField
  414.       FieldName = 'Il'
  415.       Size = 15
  416.     end
  417.   end
  418.   object OpenPictureDialog1: TOpenPictureDialog
  419.     Filter = 'Bitmaps (*.bmp)|*.bmp'
  420.     Left = 344
  421.   end
  422. end
  423.